home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Software Vault: The Gold Collection
/
Software Vault - The Gold Collection (American Databankers) (1993).ISO
/
cdr50
/
nu1n.zip
/
KEYPD765.BAS
< prev
Wrap
BASIC Source File
|
1993-05-14
|
2KB
|
61 lines
100 ' -- SELECTED BASICA ROUTINES FOR THE IBM-PC --
110 ' -- AND CLONES. FOR USE WITH ICOM CI-V SYSTEM --
120 ' -- AND THE COVOX VOICE RECOGNITION SYSTEM --
130 ' -- BY NU1N --
140 '
150 ' -- VOICE ACTIVATED KEYPAD EXAMPLE --
160 '
1000 ' ------------------- CI-V CODE ---------------------
1010 PRE$ = CHR$ (254) + CHR$ (254)
1020 EOM$ = CHR$ (253)
1030 TOADR$ = CHR$ (44)
1040 FROM$ = CHR$ (1)
1050 STFREQ$ = CHR$ (5)
1060 GOTO 6010
1070 '
1080 OPEN "COM1:1200,N,8,1" AS #1: COM(1) ON
1090 CODE$ = STFREQ$
1100 PRINT #1, PRE$;
1110 PRINT #1, TOADR$;
1120 PRINT #1, FROM$;
1130 PRINT #1, CODE$;
1140 PRINT #1, CHR$(0);
1150 PRINT #1, CHR$(KHZ);
1160 PRINT #1, CHR$(HKHZ);
1170 PRINT #1, CHR$(MHZ);
1180 PRINT #1, EOM$;
1190 FOR INDEX = 1 TO 200: NEXT INDEX
1200 COM(1) OFF: CLOSE #1 : RETURN
1210 '
3000 ' ---------------- FREQ CALCULATIONS ------------
3010 CFREQ = FREQ * 1000 * 10
3020 FREQ$ = STR$(CFREQ)
3030 IF CFREQ < 100000! THEN FREQ$ = "0" + FREQ$
3040 KHZ$ = MID$(FREQ$,6,2): HKHZ$ = MID$(FREQ$,4,2)
3050 MHZ$ = MID$(FREQ$,2,2)
3060 KHZ = VAL(LEFT$(KHZ$,1)) * 16 + VAL(RIGHT$(KHZ$,1))
3070 HKHZ = VAL(LEFT$(HKHZ$,1)) * 16 + VAL(RIGHT$(HKHZ$,1))
3080 MHZ = VAL(LEFT$(MHZ$,1)) * 16 + VAL(RIGHT$(MHZ$,1))
3090 GOSUB 1080: RETURN
3100 '
4000 ' -------------- ENTER FREQUENCY -----------------
4010 ' E.G. "ONE FOUR POINT ZERO FIVE" -> 14.05 MHz
4020 CLS
4030 LOCATE 2,33: PRINT "ENTER FREQUENCY"
4040 LOCATE 12,37: INPUT "FREQUENCY", FREQ
4050 GOSUB 3010: GOTO 6010
4060 '
6000 ' ------------------- MAIN MENU -------------------
6010 CLS: OPT = 0: O$ = ""
6020 LOCATE 2,31: PRINT "MAIN MENU OPTIONS"
6030 LOCATE 7,35: PRINT "1. FREQUENCY"
6040 ' ** LIST OTHER OPTIONS HERE **
6050 LOCATE 9,35: PRINT "2. QUIT"
6060 LOCATE 18,35: PRINT "ENTER OPTION"
6070 WHILE (LEN(O$)<1) OR (VAL(O$)<1 OR VAL(O$)>2)
6080 O$ = INKEY$
6090 WEND
6100 OPT = VAL(O$)
6110 IF OPT = 1 THEN GOTO 4010
6120 IF OPT = 2 THEN CLS: END